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THE FORTRAN SYSTEM 


The IBM Mathematical Formula Translating System FORTRAN is an automatic 
coding system for the IBM 704 EDPM. More precisely, it is a 704 program 
which accepts a source program written in a language — the FORTRAN language 
— closely resembling the ordinary language of mathematics, and which pro- 
duces an object program in 704 machine language, ready to be run on a 704. 

FORTRAN therefore in effect transforms the 704 into a machine with which 
communication can be made in a language more concise and more familiar than 
the 704 language itself. The result should be a considerable reduction in the 
training required to program, as well as in the time consumed in writing pro- 


grams and eliminating their errors. 


Among the features which characterize the FORTRAN system are the following. 


The system has been designed to operate on a “small” 704, but to write object 
programs for any 704. (For further details, see the section on Source and Object 
Machines in Chapter 7.) If an object program is produced which is too large 
for the machine on which it is to be run, the programmer must subdivide the 


program. 


Object programs produced by FORTRAN will be nearly as efficient as those 


written by good programmers. 


The FORTRAN language is intended to be capable of expressing any problem of 


numerical computation. In particular, it deals easily with problems containing 
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Inclusion of 
Library 
Routines 


Provision for 
Input and Output 


Nature of 
Fortran 
Arithmetic 


large sets of formulae and many variables, and it permits any variable to have 
up to three independent subscripts. 

However, for problems in which machine words have a logical rather than 
a numerical meaning it is less satisfactory, and it may fail entirely to express 
some such problems. Nevertheless, many logical operations not directly express- 
ible in the FORTRAN language can be obtained by making use of the provisions 


for incorporating library routines. 


Pre-written routines to evaluate any single-valued functions of any number of 
arguments can be made available for incorporation into object programs by 


placing them on the master FORTRAN tape. 


Certain statements in the FORTRAN language cause the object program to be 
equipped with its necessary input and output programs. Those which deal with 
decimal information include conversion to or from binary, and permit con- 


siderable freedom of format in the external medium. 


Arithmetic in the object program will generally be performed with single- 
precision 704 floating point numbers. These numbers provide 27 binary digits 
(about 8 decimal digits) of precision, and may have magnitudes between approxi- 
mately 10-38 and 1038, and zero. Fixed point arithmetic, but for integers only, 


is also provided. 


CHAPTER 1. 
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3. 
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CHAPTER 1. GENERAL PROPERTIES 
OF A FORTRAN SOURCE PROGRAM 


A FORTRAN source program consists of a sequence of FORTRAN statements. 
There are 32 different types of statement, which are described in detail in the 
chapters which follow. 


Example of a The following brief program will serve to illustrate the general appearance and 


Fortran Program ‘ome of the properties of a FORTRAN program. It is shown as coded on a 


standard FORTRAN coding sheet. 


FOR 


COMMENT 


FORTRAN STATEMENT FICATION 
STATEMENT 
NUMBER 

+ Р 5 

Lc PROGRAM FOR FINDING THE LARGEST VALUE 


Cc X ATTAINED BY A SET OF NUMBERS 
BIGA = А(1) 


© continuation 


7 12123 в 


| DO 20 1 = 2,N 
_ | IF (BIGA - А(1)) 10, 20, 20 
10 BIGA = ACI) 


| | Bee ee „..————— 


CONTINUE 


This program examines the set of n numbers ai (i=1,...., n) and sets the 
quantity BIGA to the largest value attained in the set. It begins (after a com- 


ment describing the program) by setting BIGA equal to aı. Next the DO 
statement causes the succeeding statements to and including statement 20 to 
be carried out repeatedly, first with i=2, then with i—3, etc., and finally with 
in. During each repetition of this loop the IF statement compares BIGA with 
а;; if BIGA is less than aj, statement 10, which replaces BIGA by aj, is executed 
before continuing. 


Keypunching Each statement is punched on a separate card. If a statement is too long to 
the Program fit on a single card it can be continued over as many as 9 additional continuation 
cards. For each statement the initial card must contain either a zero or a blank 
in column 6; on continuation cards column 6 must not contain a zero or a blank, 
and it should be used to number the continuation cards consecutively from 1 to 9. 

If a statement is too long to fit on a single line of the coding form, the 
programmer can signal to the keypuncher that he has continued on to the next 


line by placing a mark in the column labeled CONTINUATION. 


Preview 
of the Fortran 
Statements 


The order of the statements is governed solely by the order of the cards. 
However, any number less than 215 ( ==32768) may be associated with апу 
statement by punching it in columns 1-5 of the initial card bearing that state- 
ment. Thereupon this number becomes the statement number of that statement. 
Statement numbers, besides permitting cross-references within the source pro- 
gram, also help the programmer to correlate the object program with his 
source program. 

Punching the character C in column 1 will cause the card to be ignored by 
FORTRAN. Such cards may therefore be used to carry comments which will 
appear when the deck is listed. 

Columns 73-80 are not read by FORTRAN and may be punched with апу. 
desired identifying information. 

The statements themselves are punched in columns 7-72, both on initial 
and continuation cards. Thus a statement consists of not more than 10 x 66=660 
characters. A table of the admissible characters in FORTRAN is given in 
Appendix A. 

Blank characters, except in column 6, are simply ignored by FORTRAN, 
and the programmer may use blanks freely to improve the readability of his 
FORTRAN listing. 

The actual input to ForTRAN is either this deck of cards or a BCD tape 
written from it on the 704 peripheral card-to-tape equipment with the standard 
SHARE 80 x 84 board. On the tape an End of File mark after the last card 
is required. 


The 32 types of statement, of which every FORTRAN program is composed, 
may be classified as follows. 


1. The arithmetic formula, which causes the object program to carry out a 
numerical computation. Chapter 2 discusses the symbols available for refer- 
ring to constants and variables, and Chapter 3 the combining of these into 
arithmetic formulas. 

2. The 15 control statements, which govern the flow of control in the object 
program. These are discussed in Chapter 4. 

3. The 13 input-output statements, which provide the object program with its 
necessary input and output routines. These are discussed in Chapter 5. 

4. Finally, the 3 specification statements, which provide various information 
required or desirable to make the object program efficient, are discussed in 
Chapter 6. 


Chapters 7 and 8, which conclude the manual, give additional detail on various 
topics and examples of FORTRAN programming. 
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CHAPTER 2. THE FORTRAN LANGUAGE: 
Constants, Variables, and Subscripts 


Any programming language must provide for expressing numerical constants and 
variable quantities. FORTRAN also provides a subscript notation for expressing 


1, 2, or 3-dimensional arrays of variables. 


Constants Two types of constant are permissible: fixed point (restricted to integers) and 
floating point (characterized by being written with a decimal point). 


Fixed Point Constants. 


GENERAL FORM 


1 to 5 decimal digits. A preceding + or — 


sign is optional. The magnitude of the constant must 
be less than 32768. 


Any unsigned fixed point constant may be used as a statement number. 
Floating Point Constants. 
GENERAL FORM 


Any number of decimal digits, with 17. 
a decimal point at the beginning, at the end, 5.0 


or between two digits. —.0003 

A preceding + or — sign is optional. 5.0E3 (= 5.0 x 103) 
A decimal exponent preceded by an E 5.0E+3 (= 5.0 x 103) 
may follow. 5.0E—7 (= 5.0 x 10-7) 


The magnitude of the number thus expressed must be zero, or must lie between 
the approximate limits of 10-38 to 1038, The number will appear in the object 


program as a normalised single-precision floating point number. 


Variables 


Subscripts and 
Subscripted 
Variables 


Two types of variable are also permissible: fixed point (restricted to integral 
values) and floating point. Fixed point variables are distinguished by the fact 
that their first character is I, J, K, L, M, or N. 


Fixed Point Variables. 


GENERAL FORM 
J $a 


1 to 6 alphabetic or numeric characters 


(not special characters) of which the first is 
I, J, K, L, M, or N. 


A fixed point variable can assume any integral value whose magnitude is less 
than 32768. However, see the section on Fixed Point Arithmetic in Chapter 7. 


WARNING. The name of a variable must not be the same as the name of any 
function used in the program after the terminal F of the function name has been 
removed. Also, if a subscripted variable has 4 or more characters in its name, 
the last of these must not be an F. (For the meaning of “function” and “sub- 
scripted” see Chapter 3 and the last section of this chapter. ) 


Floating Point Variables. 


GENERAL FORM EXAMPLES 


| 


1 to 6 alphabetic or numeric characters 


(not special characters) of which the first is alphabetic 
but not І, J, K, L, M, or N. 


A floating point variable can assume any value expressible as a normalised 704 
floating point number; i.e. zero, or with magnitude between approximately 10-38 
and 108. 


WARNING. The restrictions on naming fixed point variables also apply to floating 
point variables. 


A variable can be made to represent any member of a 1, 2, or 3-dimensional 
array of quantities by appending to it 1, 2, or 3 subscripts; the variable is then a 
subscripted variable. The subscripts are fixed point quantities whose values 
determine which member of the array is being referred to. 
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Subscripts. 


GENERAL FORM EXAMPLES 


Let v represent any fixed point variable 


and c (or c’) any unsigned fixed point 3 

constant. Then a subscript is MU +2 

an expression of one of the forms: v MU—2 
с 5*J 


у+согу—С 5*)+2 
с*ү 5*)—2 
c*v+c' orcxv—c’ 


The symbol * denotes multiplication. The variable у must not itself be sub- 


scripted. 


Subscripted Variables. 


GENERAL FORM EXAMPLES 


_ _.————————— 


A fixed or floating point variable All) 


followed by parentheses enclosing 1, 2, or 3 K(3) 
subscripts separated by commas. ВЕТА(5*)—2, К+ 2,0) 


For each variable that appears in subscripted form the size of the array (i.e. the 
maximum values which its subscripts can attain) must be stated in a DIMEN- 
SION statement (see Chapter 6) preceding the first appearance of the variable. 


The minimum value which a subscript may assume in the object program is + 1. 


Arrangement of Arrays in Storage. 


A 2-dimensional array A will, in the object program, be stored sequentially in 
the order А; 1, Agi, -> , Am, А12, Ал2,..... Аа екеу ‚ Amn. Thus 
it is stored “columnwise”, with the first of its subscripts varying most rapidly, 
and the last varying least rapidly. The same is true of 3-dimensional arrays. 
1-dimensional arrays are of course simply stored sequentially. All arrays are 
stored backwards in storage; i.e. the above sequence is in the order of decreas- 


ing absolute location. 
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CHAPTER 3. THE FORTRAN LANGUAGE: 


Functions 


Functions, Expressions, and Arithmetic Formulas 


Of the various FORTRAN statements it is the arithmetic formula which defines 
a numerical calculation which the object program is to do. A FORTRAN arith- 
metic formula resembles very closely a conventional arithmetic formula; it 
consists of the variable to be computed, followed by an = sign, followed by an 
arithmetic expression. For example, the arithmetic formula 


Y = A—SINF(B—C) 


means “replace the value of y by the value of a-sin(b-c)”. 


As in the above example, a FORTRAN expression may include the name of a 
function (e.g. the sine function SINF), provided that the routine for evaluating 
the function is either built into FORTRAN or is accessible to it as a pre-written 
subroutine in 704 language on the master FORTRAN tape. 


GENERAL FORM 


The name of the function is 4 to 7 alphabetic or numeric SINF(A + В) 
characters (not special characters), of which the last must SOMEF (X,Y) 
be F and the first must be alphabetic. Also, the first must SQRTF(SINF(A)) 


be X if and only if the value of the function is to be XTANF(3.*X) 
fixed point. The name of the function is followed by 

parentheses enclosing the arguments (which may be 

expressions), separated by commas. 


Mode of a Function and its Arguments. Consider a function of a single argu- 
ment. It may be desired to state the argument either in fixed or floating point; 
similarly the function itself may be in either of these modes. Thus a function 
of a single argument has 4 possible mode configurations; in general.a function 
of n arguments will have 2"+! mode configurations. 
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A separate name must be given, and a separate routine must be available, 
for each of the mode configurations which is used. Thus a complete set of 
names for the sine function might be 


SINOF Fixed argument, floating function 
SINIF Floating “ , “ s 
XSINOF Fixed “fixed Б 
ХЅІМЕ Floating “ , “ Е 


where the X’s and F’s are compulsory, but the remainder of the naming is 


arbitrary. 


Built-In Functions. The ForTRAN system has the routines for evaluating cer- 


tain functions built in. The list is as follows. 


MODE OF 


NAME 
TYPE OF FUNCTION DEFINITION ARGUMENT FUNCTION 


Absolute value \Arg| ABSF Floating Floating 
XABSF Fixed Fixed 


Truncation Sign of Arg times INTF Floating Floating 
largest integer XINTF Floating Fixed 
<|Arg| 


Remaindering Arg, (mod Arg.) MODF Floating Floating 
(see note below) XMODF Fixed Fixed 


Choosing Max (Arg, Argo, .. MAXOF Fixed Floating 

largest value МАХ1Е Floating Floating 
XMAXOF Fixed Fixed 
XMAXIF Floating Fixed 


Choosing Min (Arg), Arg, .. MINOF Fixed Floating 

smallest value MINIF Floating Floating 
XMINOF Fixed Fixed 
XMINIF Floating Fixed 


NOTE. The function МОРЕ (Агару, Аге) is defined as Arg, — [Arg,/Arg2] 
Arge, where [x] = integral part of x. 

These 14 built-in subroutines are always compiled into the object program 
as open subroutines. 


Functions on the Library Tape. Besides the built-in routines, any single- 
‘valued function of any number of arguments can be made available to the 
programmer by placing the appropriate routine on the master FORTRAN tape. 
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Expressions 


Any such routine will be compiled into the object program as a closed subrou- 
tine. In the section on Writing Subroutines for the Master Tape in Chapter 7 


are given the specifications which any such routine must meet. 


An expression is any sequence of constants, variables (subscripted or not sub- 
scripted), and functions, separated by operation symbols, commas, and paren- 
theses so as to form a meaningful mathematical expression. 

However, one special restriction does exist. A FORTRAN expression may 
be either a fixed or a floating point expression, but it must not be a mixed 
expression. This does not mean that a floating point quantity can not appear 
in a fixed point expression, or vice versa, but rather that a quantity of one 
mode can appear in an expression of the other mode only in certain ways. 
Briefly, a floating point quantity can appear in a fixed point expression only 
as an argument of a function; a fixed point quantity can appear in a floating 
point expression only as an argument of a function, or as a subscript, or as 
an exponent. 


Formal Rules for Forming Expressions. By repeated use of the following 
rules, all permissible expressions may be derived. 
1. Any fixed point (floating point) constant, variable, or subscripted variable 


is an expression of the same mode. Thus 3 and I are fixed point expressions, 
and ALPHA and A(1I,J,K) are floating point expressions. 


2. If SOMEF is some function of n variables, and if E, Е, .... , H area set 
of n expressions of the correct modes for SOMEF, then SOMEF (E, F, 
. , H) is an expression of the same mode as SOMEF. 


3. If E is an expression, and if its first character is not + or —, then +E and 
—E are expressions of the same mode as E. Thus —A is an expression, but 
+—A is not. 

4. If E is an expression, then (E) is an expression of the same mode as E. 


Thus (A), ((A)), (((A))), etc. are expressions. 


5. If E and F are expressions of the same mode, and if the first character of 
F is not + or —, then 
E+ F 
Е– Е 
Е + Е 
Е/Е 
are expressions of the same mode. Thus А— +В and А/ +В аге not expres- 


sions. The characters +, —, *, and / denote addition, subtraction, multi- 
plication, and division. 
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6. If E and F are expressions, and F is not floating point unless E is too, and 
the first character of F is not + or —, and neither E nor F is of the form 
A**B, then 

E**F 


is an expression of the same mode as E. Thus A**(B**C) is an expression, 
but 1**(В**С) and A**B**C are not. The symbol +» denotes exponentia- 
tion; i.e. A**B means AB. 


Hierarchy of Operations. When the hierarchy of operations in an expression 
is not completely specified by parentheses, then it is understood to be in the 
following order (from innermost operations to outermost) : 


Exponentiation 
Multiplication and Division 
Addition and Subtraction 


For example, the expression 


A+B/C+D**E*F—G 
will be taken to mean 
A+(B/C) + (DE*F)—G. 


Ordering within a Hierarchy. Parentheses which have been omitted from a 
sequence of consecutive multiplications and divisions (or consecutive additions 
and subtractions) will be understood to be grouped from the left. Thus, if . rep- 


resents either * or / (or either + or —), then 


A.B.C.D.E 
will be taken to mean 
((((A.B).C).D).E) 


Verification of Correct Use of Parentheses. The following procedure is sug- 
gested for checking that the parentheses in a complicated expression correctly 
express the desired operations. 

Label the first open parenthesis “1”; thereafter, working from left to right, 
increase the label by 1 for each open parenthesis and decrease it by 1 for each 
closed parenthesis. The label of the last parenthesis should be 0; the mate of 
an open parenthesis labeled n will be the next parenthesis labeled n-1. 


Optimisation of Arithmetic Expressions. The efficiency of the object program 
into which an arithmetic expression is translated may depend upon how the 
arithmetic expression is written. The section on Optimisation of Arithmetic 
Expressions in Chapter 7 mentions some of the considerations which affect 
object program efficiency. 


Arithmetic 
Formulas 


GENERAL FORM EXAMPLES 


“a=b” where a is a variable (subscripted or АЧ) = Bil)+SINF(C (1) ) 
not subscripted) and b is an expression. 


The = sign in an arithmetic formula has the meaning “is to be replaced by”. 
An arithmetic formula is therefore a command to compute the value of the 
right-hand side and to store that value in the storage location designated by the 
left-hand side. 


The result will be stored in fixed or floating point according as the variable 
on the left-hand side is a fixed or floating point variable. 


If the variable on the left is fixed point and the expression on the right is 
floating point, the result will first be computed in floating point and then trun- 
cated and converted to a fixed point integer. Thus, if the result is --3.569 the 
fixed point number stored will be +3, not +4. 


Examples of Arithmetic Formulas. 
FORMULA MEANING 


Store the value of B in A. 


Truncate B to an integer, convert to fixed point, 
and store in |. 


Convert | to floating point and store in A. 


Add 1 to 1 and store іп І. This example illustrates 
the point that an arithmetic formula is not 
an equation but a command to replace a value. 


A= MAXIF(SINF(B), COSF(B) ) Replace A by the іагрег of the quantities 
sinB and cosB. This example illustrates the use 
of a function as an argument of a function. 


Replace A Бу ЗВ. 
Not permitted. The expression is mixed. 


Not permitted. The expression is mixed. 


16 


CHAPTER 4. THE FORTRAN LANGUAGE: 


Unconditional 
со TO 


Assigned 
GO TO 


ASSIGN 


Control Statements 


The second class of FORTRAN statements is the set of 15 control statements, 


which enable the programmer to state the flow of his program. 


“GO TO n” where n is a statement number. 


This statement causes transfer of control to the statement with statement 


number n. 


GENERAL FORM 


“GO TO n, (m, nz , Nm)” where n is a GO TON, (7, 12, 19) 
non-subscripted fixed point variable appearing in a 
previously executed ASSIGN statement, and 

‚ Nm are statement numbers, 


This statement causes transfer of control to the statement with statement num- 

ber equal to the value of n last assigned by an ASSIGN statement. The nj, п», 
. , Dmare a list of the values which n may be assigned. 

The assigned GO TO is used to obtain a pre-set many-way fork. 


NOTE: When an assigned GO TO exists in the range of a DO, there is a restric- 
tion on the nı, ng, ..., Nm. (See the section on DOs in this chapter. ) 


GENERAL FORM 


“ASSIGN i TO n” where i is a statement number and ASSIGN 12 TO N 
nis a non-subscripted fixed point variable. 


This statement causes a subsequent GO TO n, (т, ..,і, .., Nm) to transfer 
control to the statement whose statement number is i. 

The statement ASSIGN 12 TO N and the arithmetic formula N = 12 are 
not the same. A variable which has been assigned can be used only for an 
assigned GO TO until it is re-established as an ordinary variable. 
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Computed 
GO To 


GENERAL FORM EXAMPLES 


“60 TO (пу, п, „ Пт), i” where GO ТО (30, 40, 50, 60), | 


‚ Nm are statement numbers and 
i is a non-subscripted fixed point variable. 


If at the time of execution the value of the variable i is j, then control is trans- 
ferred to the statement with statement number nj. Thus, in the example, if I 
has the value 3 at the time of execution, a transfer to statement 50 will occur. 
This statement is used to obtain a computed many-way fork. 


IF 


GENERAL FORM 


“IF (a) m, пә, пз” where a is any expression IF (AU,K) —B) 10, 20, 30 
and пу, No, п; are statement numbers. 


Control is transferred to the statement with statement number Dı, Ne, ОГ Ng 
according as the value of a is less than, equal to, or greater than zero. 


SENSE LIGHT 
GENERAL FORM EXAMPLES 


“SENSE LIGHT i” where i is 0, 1, 2, 3, or 4. SENSE LIGHT 3 


If i is 0, all Sense Lights on the 704 console will be turned OFF; otherwise 
Sense Light i will be turned ON. 


IF (SENSE LIGHT) 


GENERAL FORM 


“IF (SENSE LIGHT i) пу, nz” where IF (SENSE LIGHT 3) 30, 40 
пу and nz are statement numbers and i is 1, 2, 3, or 4. 


Control is transferred to the statement with statement number n, or nə accord- 
ing as Sense Light i is ON or OFF, and the Sense Light is turned OFF. 


IF 
(SENSE SWITCH) 


GENERAL FORM 


“IF (SENSE SWITCH i) m, п,” where п, and п, are IF (SENSE SWITCH 3) 30, 40 
statement numbers and i is 1, 2, 3, 4, 5, or 6. 
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Control is transferred to the statement with statement number пу or ne accord- 
ing as Sense Switch i on the 704 console is DOWN or UP. 


IF ACCUMULATOR 
OVERFLOW 


GENERAL FORM 


“IF ACCUMULATOR OVERFLOW m, nz” IF ACCUMULATOR OVERFLOW 30, 40 
where n, and п, are statement numbers. 


Control is transferred to the statement with statement number n, or ne accord- 
ing as the Accumulator Overflow trigger of the 704 is ON or OFF, and the 
trigger is turned OFF. 


IF QUOTIENT 
OVERFLOW 


GENERAL FORM 


“IF QUOTIENT OVERFLOW п, Ny” IF QUOTIENT OVERFLOW 30, 40 
where n, and п, are statement numbers. 


Control is transferred to the statement with statement number п; or п» accord- 
ing as the Multiplier-Quotient Overflow trigger of the 704 is ON or OFF, and 
the trigger is turned OFF. 


IF DIVIDE CHECK 
GENERAL FORM 


“IF DIVIDE CHECK пу, nz” where IF DIVIDE CHECK 30, 40 
пу and nz are statement numbers. 


Control is transferred to the statement with statement number пу or п; accord- 
ing as the Divide Check trigger of the 704 is ON or OFF, and the trigger is 
turned OFF. 


PAUSE 


GENERAL FORM EXAMPLES 


“PAUSE” or “PAUSE n” where п is an PAUSE 
unsigned octal fixed point constant. PAUSE 77777 


The machine will HALT, with the octal number n displayed on the 704 con- 
sole in the address field of the storage register. (If n is not stated it is taken 
to be 0.) Pressing the START button causes the program to resume at the 


next FORTRAN statement. 
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STOP 


“STOP” or “STOP n” where n is an STOP 
unsigned octal fixed point constant. STOP 77777 


This statement causes the machine to HALT in such a way that pressing the 
START button has no effect. Therefore, in contrast to the PAUSE, it is used 
where a get-off-the-machine stop, rather than a temporary stop, is desired. The 
octal number n is displayed on the 704 console in the address field of the 
storage register. (If n is not stated it is taken to be 0.) 


GENERAL FORM 


“D0 ni = m, m?” or “DO ni = m, mz тз" DO 301 = 1,10 
where n is a statement number, i is a 00 301 = 1,M,3 


non-subscripted fixed point variable, and 

т, M2, т; are each either an unsigned fixed point 
constant or a non-subscripted fixed point variable. 
If m, is not stated it is taken to be 1. 


The DO statement is a command to “DO the statements which follow, to and 
including the statement with statement number n, repeatedly, the first time with 
і = m; and with i increased by тз for each succeeding time; after they have 
been done with i equal to the highest of this sequence of values which does not 
exceed тз let control reach the statement following the statement with state- 
ment number n”. 

The range of a DO is the set of statements which will be executed re- 
peatedly; it is the sequence of consecutive statements immediately following 
the DO, to and including the statement numbered n. 

The index of a DO is the fixed point variable i, which is controlled by the 
DO in such a way that its value begins at т, and is increased each time by 
тз until it is about to exceed т». Throughout the range it is available for com- 
putation, either as an ordinary fixed point variable or as the variable of a 
subscript. During the last execution of the range, the DO is said to be satisfied. 

Suppose, for example, that control has reached statement 10 of the 


rogram 

5 10 00111110 
11 А) = N) 
12 


20 


The range of the DO is statement 11, and the index is I. The DO sets I to 1 
and control passes into the range. N(1) is computed, converted to floating 
point, and stored in A(1). Now, since statement 11 is the last statement in the 
range of the DO and the DO is unsatisfied, I is increased to 2 and control 
returns to the beginning of the range, statement 11. 2N(2) is computed and 
stored in A(2). This continues until statement 11 has been executed with I = 10. 
Since the DO is satisfied, control now passes to statement 12. 


DOs within DOs. Among the statements in the range of a DO may be other 
DO statements. When this is so, the following rule must be observed. 


Rule 1. If the range of a DO includes another DO, then all of the statements in the 
range of the latter must also be in the range of the former. 


A set of DOs satisfying this rule is called a nest of DOs. 


Transfer of Control and DOs. Transfers of control by IF-type or GO TO- 
type statements are subject to the following rule. 


Rule 2. No transfer is permitted into the range of any DO from outside its range. 
Thus, in the configuration below, 1, 2, and 3 are permitted transfers, but 
4, 5, and 6 are not. 


EXCEPTION. There is one situation in which control can be transferred into the 
range of a DO from outside its range. Suppose control is somewhere in the 
range of one or more DOs, and that it is transferred to a section of program, 
completely outside the nest to which those DOs belong, which makes no change 
in any of the indexes or indexing parameters (m’s) in the nest. Then after the 
execution of this section of program control can be transferred back to the same 
part of the nest from which it originally came. This provision makes it possible 
to exit temporarily from the range of a DO to execute a subroutine. An example 
is given in Chapter 8. 
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Restriction on Assigned GO TOs in the Range of a DO. When an assigned 
GO TO exists in the range of a DO, the statements to which it may transfer 
must all lie in one single part of the nest, or must all be completely outside the 
nest, If this condition cannot be met, a computed GO TO may be used. 


Preservation of Index Values. When control leaves the range of a DO in the 
ordinary way (i.e. by the DO becoming satisfied and control passing on to the 
next statement after the range) the exit is said to be a normal exit, After a 
normal exit from a DO occurs, the value of the index controlled by that DO 
is not defined, and the index can not be used again until it is redefined. (See, 
however, the section on Further Details about DO Statements in Chapter 7.) 

However, if exit occurs by a transfer out of the range, the current value 
of the index remains available for any subsequent use. If exit occurs by a trans- 
fer which is in the ranges of several DOs, the current values of all the indexes 
controlled by those DOs are preserved for any subsequent use. 


Restriction on Calculations in the Range of a DO. Almost every type of 
calculation is permitted in the range of a DO. Only one type of statement is 
not permitted, namely any statement which redefines the value of the index 
or of any of the indexing parameters (m’s). In other words, the indexing of a 
DO loop must be completely set before the range is entered. 


CONTINUE GENERAL FORM EXAMPLES 


“CONTINUE” CONTINUE 


CONTINUE is a dummy statement which gives rise to no instructions in the 
object program. Its most frequent use is as the last statement in the range of a 
DO, where it provides a statement number which can be referred to in transfers 
which are desired to become, in the object program, transfers to the indexing 
instuctions at the end of the loop. 

As an example of a program which requires a CONTINUE, consider the 
table search program 


10 D0121=1, 100 | 
1 IF(ARG—VALUE(I) ) 12, 20, 12 Г | 


1 
12 CONTINUE 
13 
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Summary of 
Fortran 
Sequencing 


This program will examine the 100-entry VALUE table until it finds an entry 
which equals ARG, whereupon it will exit to statement 20 with the successful 


value of I available for fixed point use; if no entry in the table equals ARG 
a normal exit to statement 13 will occur. The program 


10 DO111—1, 100 
11 IF(ARG—VALUE(I) ) 11, 20, 11 
12 


would not work since, as stated in the next section, DO-sequencing does not 
occur if the last statement in the range of a DO is a transfer. 


The precise laws which govern the order in which the statements of a FORTRAN 
program will be executed, and which have been left unstated till now, may be 


stated as follows. 
1. Control begins at the first executable statement. 


2. If control is in a statement S, then control will next go to the statement dic- 
tated by the normal sequencing properties of S. (The normal sequencing 
for each type of ForTRAN statement is given in Appendix В.) 


3. EXCEPTION. If, however, S is the last statement in the range of one or 
more DOs which are not yet satisfied, and if S is not a transfer (IF-type or 
GO TO-type statement), then the normal sequencing of S is ignored and 
DO-sequencing occurs; i.e. control will next go to the first statement of the 
range of the nearest of the unsatisfied DOs, and the index of that DO will 
be raised. 


NOTE. The statements FORMAT, DIMENSION, EQUIVALENCE, and FRE- 
QUENCY, which are discussed in the next two chapters, are non-executable 


statements, and in any question of sequencing are simply to be ignored. 


WARNING. Every executable statement in the source program (except the first ) 
must have some path of control leading to it; otherwise errors will occur in the 


compilation of the object program. 
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CHAPTER 5. THE FORTRAN LANGUAGE: 


Specifying 
Lists of 
Quantities 


Input-Output Statements 


There are 13 FORTRAN statements available for specifying the transmission of 
information, during the running of the object program, between core storage 
on the one hand and tapes, drums, and attached card reader, card punch, and 
printer on the other hand. These 13 statements may be grouped as follows. 


1, Five statements (READ, PUNCH, PRINT, READ INPUT TAPE, and 
WRITE OUTPUT TAPE) call for the transmission of a list of quantities 
between cores and an external storage medium — cards, printed sheet, or 
tape — in which information is expressed in Hollerith punch, decimal print, 
or BCD code, respectively. 


2. One statement (FORMAT) is a non-executed statement which defines the 
information format in the external medium for the above 5 statements. 


3. Four more statements (READ TAPE, READ DRUM, WRITE TAPE, and 
WRITE DRUM) call for ordinary binary transmission of a list of quantities. 


4. Finally, there are 3 statements (END FILE, REWIND, and BACKSPACE) 
for manipulating tapes. 


This chapter will first discuss the formation of a list of quantities for trans- 
mission, since such a list must appear in each of the 9 statements in groups 
1 and 3 above. Next the method of writing a FORMAT statement will be 
described, and the format which input data to the object program must have. 
Finally, the statements in groups 1, 3, and 4 will be discussed. 


Each of the 9 statements which call for the transmission of information includes 
a list of the quantities to be transmitted. This list is ordered, and its order must 
be the same as the order in which the words of information exist (for input), 
or will exist (for output), in the external medium. 


The formation and meaning of a list is best described by an example. 
A, B(3), (C(I), 0(1,К), 1 = 1,10), ( (E(1,3), | = 1,10,1), FU,3), J = 1,K) 


Suppose that this list is used with an output statement. Then the information 
will be written in the external medium in the order 
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: 


A, B(3), C(1), D(1,K), C(2), 0(2,К), ..... „ С(10), D(10,K), 

E(1,1), E(2,1), ..... , E(10,1), F(1,3), 

E(1,2), Е(2,2), ..... , Е(10,2), F(2,3), ....... , F(K,3). 
Similarly, if this list were used with an input statement, the successive words, 
as they were read from the external medium, would be placed into the sequence 
of storage locations just given. 

Thus the list reads from left to right and with repetition of variables en- 
closed within parentheses. Indeed the repetition is exactly that of DO-repetition, 
as if each open parenthesis (except subscripting parentheses) were a DO, with 
indexing given immediately before the mated closed parenthesis, and with 
range extending up to that indexing information. Thus the order of the above 
list is the same as of the “program” 


A 

B(3) 

DO5!=1, 10 
c(l) 

D(I,K) 
D09J=1,K 
0081 = 1, 10,1 
E(I,J) 

Р(2,3) 


J 


о о м с сл F&F Ww м 


Only variables, and not constants, may be listed. 


Notice that indexing information, as in DOs, consists of 3 constants or 
fixed point variables, and that the last of these may be omitted, in which case 
it is taken to be 1. 

For a list of the form К, A(K) or К, (А(1), I = 1,K), where an index 
or indexing parameter itself appears earlier in the list of an input statement, 
the indexing will be carried out with the newly read-in value. 

When it is desired to transmit an entire array, and in its natural order (see 
the section on Arrangement of Arrays in Storage in Chapter 2), then an abbre- 
viated notation may be used; only the name of the array need be given and 
the indexing information may be omitted. FORTRAN will look to see if a 
DIMENSION statement (see Chapter 6) has been made about that name; 
if it has, indexing information to transmit the entire array in natural order 
will be supplied automatically, while if it has not, only a single variable will be 
transmitted. Thus, in the example, the entire A-array will be transmitted, includ- 
ing the special case where the array consists of only a single quantity. 
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WARNING. The information given in this section applies in its full generality 
only to lists which are given with the 5 decimal statements of group 1. For the 
binary statements WRITE DRUM and READ DRUM only the abbreviated 
notation mentioned immediately above is permitted; the restrictions which affect 
lists for WRITE TAPE and READ TAPE are discussed in the section on Lists 
for Binary Tape Operations in Chapter 7. 


GENERAL FORM 


“FORMAT (Specification)” where Specification FORMAT (12/(E12.4, F10.4)) 
is as described below. 


The 5 decimal input-output statements of group 1 contain, in addition to- the 
list of quantities to be transmitted, the statement number of a FORMAT state- 
ment, which describes the information format which exists, or is to be produced, 
in the external medium. It also specifies the type of conversion between binary 
and decimal which is to be performed. FORMAT statements are not executed, 
their function being merely to supply information in the object program. There- 
fore they may be placed anywhere-in the source program. 


The Specification. For the sake of definiteness the details of writing a FORMAT 
Specification are given for use with a PRINT &tatement. However, the descrip- 
tion is valid for any case simply by generalizing the concept of “printed line” 
to that of unit record in the external medium. Thus a unit record may be 


1. A printed line with a maximum of 120 characters. 
2. A punched card with a maximum of 72 characters. 
3. A BCD tape record with a maximum of 120 characters. 


Three basic types of decimal-to-binary or binary-to-decimal conversion are 
available: 


INTERNAL TO OR FROM EXTERNAL 


Floating point variable Floating point decimal 


Floating point variable Fixed point decimal 
Fixed point variable Decimal integer 


The FORMAT specification describes the line to be printed by giving, for each 
field in the line (from left to right, beginning with the first type wheel) : 
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1. The type of conversion (E, F, or I) to be used; 
2. The width (w) of the field; and 
3. For E- and F-conversion, the number of places (d) after the decimal point 
that are to be rounded and printed. If d is not less than 10 it is treated 
mod 10. 
These basic field specifications are given in the forms 
iw, Ew.d, and Ем. 
with the specification for successive fields separated by commas. Thus the state- 
ment FORMAT (12, E12.4, F10.4) might give the line 
27 -0.9321Е 02 -0.0076 


As in this example the field widths may be made greater than necessary, so as 
to ensure spacing blanks between numbers. In this case there is 1 blank follow- 
ing the 27, 1 blank automatically supplied after the E, and 3 blanks after the 


- 02. Within each field the printed output is always pushed to the extreme right. 


It may be desired to print n successive fields in the same fashion. This may 
be done by giving n before the E, F, or I. Thus the statement FORMAT (12, 
3E12.4) might give 


27 -0.9321E 02 -0.7580E-02 0.5536Е 00 


To permit the repetition of groups of field specifications a limited parenthetical 
expression is permitted. Thus FORMAT (2(F10.6, E10.2), 14) is equivalent 
to FORMAT (F10.6, E10.2, F10.6, E10.2, 14). No provision is made for 
parentheses within parentheses. | 
To permit more general use of F-conversion, a scale factor followed by the 
letter P may precede the specification. The scale factor is so defined that 


Printed number — Internal number X 10 Scale factor 


Thus the statement FORMAT (12, 1P3F11.3), used with the data of the 
preceding example, would give 


27 -932.096 -0.076 5.536 
while FORMAT (12, -1P3F11.3) would give 
27 -9.321 -0.001 0.055 


A positive scale factor may also be used with E-conversion to increase the num- 
ber and decrease the exponent. Thus FORMAT (12, 1P3E12.4) would give 
with the same data 


27 -9.3210Е 01 -7.5804E-03 5.5361E-01 
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NOTE. The scale factor is assumed to be zero if no other value has been given. 
However, once a value has been given it will hold for all F- and E-conversions 
until a new one is given. The scale factor has no effect on J-conversion. 


Hollerith Fields. A field may be designated as a Hollerith field, in which case 
English text will be printed in it. The field width, followed by the desired 
characters, should appear in the appropriate place in the specification. For 
example, FORMAT (3HXY = F8.3, 4H Z=F6.2, 7H W/AF = Е7.3) 
would give with the same data 
XY = -93.210 Z= -0.01 W/AF— 0.554 

Notice that any Hollerith characters, including blanks, may be printed. This is 
the sole exception to the statement made in Chapter 1 that FORTRAN ignores 
blanks. | 

It is possible to print Hollerith information only, by giving no list with the 
input-output statement and setting up no I, E, or F fields in the FORMAT 
statement. 

Consider a Hollerith field in a FORMAT statement at the time of execu- 
tion of the object program. If the FORMAT statement is being used with an 
input statement, the Hollerith text in the FORMAT statement will be replaced 
with whatever text is read from the corresponding field in the external medium. 
When the FORMAT statement is used with an output statement, whatever 
text is currently in the FORMAT statement will be outputted. Thus text can 
be originated either at source time or at object time by not using, or using, the 
FORMAT statement with an input statement. 


Multi-Record Formats. To deal with a block of printing a FORMAT speci- 
fication may have several different line formats, separated by the slash /. Thus 
FORMAT (3F9.2, 2F10.4/8E14.5) would specify a block in which lines 
1, 3, 5, .... have format 3F9.2, 2F10.4 and lines 2, 4, 6, .... have format 
8E14.5. 

If a block format is desired having the first two lines of some special 
formats and all the remaining lines of another format, the last line of the format 
should be enclosed in parentheses; e.g. FORMAT (12, 3E12.4/2F 10.3, 3F9.4/ 
(10F12.4)). 

In general, if there are items in the list still remaining to be transmitted 
after the format specification has been completely used, the format repeats 
from the last open parenthesis or (if no parentheses are present) from the 
beginning. 
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Data Input 
to the 
Object Program 


Blank lines may be introduced into a block by omitting format information; 
thus // and /// will give 1 and 2 blank lines respectively. 


Carriage Control. When WRITE OUTPUT TAPE is being used to write a 
BCD tape for subsequent printing, the question of carriage control of the printer 
must be considered. The peripheral printer can operate in 3 modes: single 
space, double space, and Program Control, of which the last gives the greatest 
flexibility. 

Under Program Control the carriage is controlled by the first character 
of each BCD record, and that character is not printed. The various control 
characters and their effects are 

Blank Single space before printing 
0 Double space before printing 
+ No space before printing 
1-9 Skip to channels 1-9 
J-R Short skip to channels 1-9 


Thus a FORMAT Specification for WRITE OUTPUT TAPE for printing with 
Program Control will usually begin with 1H followed by the appropriate control 
character. The same is true of PRINT since in FORTRAN printing on the attached 
printer simulates Program Control printing on the peripheral printer. 


Decimal data to be read by a READ or READ INPUT TAPE at the time of 
execution of the object program must be in essentially the same format as 
given in the examples of the preceding section. Thus a card to be read with 
FORMAT (12, E12.4, F10.4) might be punched 


27 -0.9321Е 02 -0.0076 


Within each field all information must be pushed to the extreme right. Positive 
signs may be indicated either by a blank or a +; — signs may be punched with 
an I1-punch or an 8-4 punch (see Appendix A). Blanks in numeric fields are 
regarded as zeroes. Numbers for E- and F-conversion may contain any number 
of digits, but only 8 digits of accuracy will be retained. Numbers for I-conversion 
will be treated mod 32768. 


To permit economy in keypunching certain relaxations in input data 
format are permitted. 


1. Numbers for E-conversion need not have 4 columns devoted to the ex- 
ponent field. The start of the exponent field must be marked by an E, or 
if that is omitted, by a + or — (not a blank). Thus E2, E02, +2, +02, 
E 02, and E+02 are all permissible exponent fields. 
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READ 


READ INPUT 
TAPE 


2. Numbers for E- or F-conversion need not have the decimal point punched. 
If it is not punched the FORMAT Specification sets its effective position; 
for example, —09321 +2 with E12.4 will be treated as if the decimal point 
had been punched 4 places before the start of the exponent field, that is 
between the 0 and the 9. If the decimal point is punched, its position over- 
rides the value of d given in the FORMAT Specification. 


GENERAL FORM EXAMPLES 


“READ n, List” where n is the READ 30, K, A(K) 


statement number of a FORMAT statement, 
and List is as previously described. 


The READ statement causes the object program to read cards from the attached 
card reader. Record after record (card after card) is read until the complete 
list has been brought in, converted, and stored in the locations specified by the 
list. The FORMAT statement describes the arrangement of information on the 
cards and the type of conversion to be done. 

If an End of File is encountered (the program attempts to read a card 
and finds that there is none in the card reader) the object program HALTS. 
Placing more cards in the card reader and pressing the START button causes 
the program to continue the reading from the point in the list which it had 
reached. 

A partial check is made in the object program for incorrectly punched 
columns. Such a column causes a HALT. Pressing the START button causes 
the faulty column to be treated as a zero, and the program to continue. 


GENERAL FORM EXAMPLES 


“READ INPUT TAPE i, n, List” where i is READ INPUT TAPE 3, 30, K, A(K) 
an unsigned fixed point constant READ INPUT TAPE 1, 30, К, A(K) 
between 1 and 10 inclusive or a fixed point 

variable, n is the statement number 

of a FORMAT statement, and List is as 

previously described. 


The READ INPUT TAPE statement causes the object program to read BCD 
information from tape unit i, where i= 1, 2, ..., 10. Record after record 
is brought in, in accordance with the FORMAT statement, until the complete 
list has been placed in storage. 


. 
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PUNCH 


PRINT 


WRITE 
OUTPUT TAPE 


An End of File causes a HALT in the object program. Pressing the START 
button causes the program to continue the reading from the point in the list 
which it had reached. 

The object program redundancy checks the tape reading. If a record fails 
twice the program HALTS. Pressing the START button causes the information 
read on the second attempt to be accepted and the program to continue. 


GENERAL FORM EXAMPLES 


“PUNCH п, List” where n is the statement number of a PUNCH 30, (AU), J = 1, 10) 
FORMAT statement and List is as previously described. 


The PUNCH statement causes the object program to punch cards on the at- 
tached card punch. Card after card is punched in accordance with the FORMAT 
statement until the complete list has been punched. 

No checking is done, and there are no HALTS in the object program. 


GENERAL FORM EXAMPLES 


“PRINT n, List” where n is the statement number of a PRINT 30, (А0), J = 1, 10) 
FORMAT statement and List is as previously described. 


The PRINT statement causes the object program to print on the attached 
printer. Line after line is printed in accordance with the FORMAT statement 
until the complete list has been printed. 

The printing is echo checked. A printing error so detected causes the 
object program to HALT. Pressing the START button causes the program to 
continue. Pressing the RESET button and then the START button causes the 


line to be printed again and the program to continue. 


GENERAL FORM EXAMPLES 


“WRITE OUTPUT TAPE i, n, List” WRITE OUTPUT TAPE 3, 30, (AU), J = 1, 10) 
where i is an unsigned fixed WRITE OUTPUT TAPE 1, 30, (AU), J = 1, 10) 


point constant between 1 and 10 inclusive 
or a fixed point variable, п is the 
statement number of a FORMAT statement, 
and List is as previously described. 
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READ TAPE 


READ DRUM 


The WRITE OUTPUT TAPE statement causes the object program to write 
BCD information on tape unit i, where i = 1, 2, ..., 10. Record after record 
is written in accordance with the FORMAT statement until the complete list 
has been written. No End of File is written after the last record. 

No checking is done, and there are no HALTS in the object program. 


GENERAL FORM 


“READ TAPE i, List” where i is an READ TAPE 3, (AU), J = 1, 10) 
unsigned fixed point constant between READ TAPE І, (AU), J = 1, 10) 


1 and 10 inclusive or a fixed 
point variable, and List is as described 
in Chapter 7. 


The READ TAPE statement causes the object program to read binary informa- 
tion from tape unit i, where i = 1, 2, ...., 10. Only one record is read, and 
it will be completely read only if the list contains as many words as the record. 
The tape, however, always moves all the way to the next record. 

If the list is longer than the record, the object program will stop with a 
Read-Write Check, and the program will not be able to continue. 

An End of File causes a HALT in the object program. Pressing the START 
button causes the program to read the next record. A READ TAPE may, 
however, be given without a list, in which case it will simply skip over a record 
or an End of File. | 

For reasons of timing there are limitations on the complexity of the list. 
See the section on Lists for Binary Tape Operations in Chapter 7. 

The object program redundancy checks the tape reading. (The longitudinal 
check is applied only if the whole record is read.) If a record fails twice the 
program HALTS. Pressing the START button causes the information read on 
the second attempt to be accepted and the program to continue. 


GENERAL FORM 


“READ DRUM i, j, List” where READ DRUM 2, 1000, A, B, C, D 
i and j are each either an unsigned READ DRUM I, J, A, B, С, D 


fixed point constant or a fixed 
point variable, with the value of i 
between 1 and 8 inclusive, and 
List is as described below. 
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WRITE TAPE 


WRITE DRUM 


The READ DRUM statement causes the object program to read words of 
binary information from consecutive locations on drum i, where P= 1, Л 
8, beginning with the word in drum location j, where ј = 0, 1, ...., 2047. 
(If j > 2048 it is interpreted mod 2048.) Reading continues until the complete 
list has been read in. 

For reasons of timing there are stringent limitations on the complexity of 
the list. In fact, the list can employ only the abbreviated notation described 
earlier in this chapter; it may consist only of variables without subscripts, as 
A, B, C, D, ... Those variables which are simple will be read into storage in 
the ordinary way; those which are arrays will be read with indexing obtained 
from their DIMENSION statements (see Chapter 6). Thus with READ DRUM 
the full array must be read in, and in natural order. For example, if there is a 
DIMENSION statement saying that A is a 2-dimensional array with maximum 
indexes 5, 10, but no DIMENSION statements for B, C, D, the list above will 
be treated as if it were written 

((A(1,J), 1 = 1, 5), J = 1, 10), B, C, D 
No checking is done and there are no HALTS in the object program. 


GENERAL FORM EXAMPLES 


“WRITE TAPE i, List” where i is an WRITE TAPE 3, (AU), J = 


unsigned fixed point constant between 1 and 10 WRITE TAPE I, (AU), J 
inclusive or a fixed point variable, 
and List is as described in Chapter 7. 


The WRITE TAPE statement causes the object program to write binary infor- 
mation on tape unit i, where i= 1, 2, ...., 10. Only one record is written; 
its length will be that of the list. 

For reasons of timing, there are limitations on the complexity of the list. 
See the section on Lists for Binary Tape Operations in Chapter 7. 


No checking is done, and there are no HALTS in the object program. 


GENERAL FORM 


“WRITE DRUM i, j, List” where i and j WRITE DRUM 2, 1000, A, B, C, D 
are each either an unsigned fixed WRITE DRUM |, J, A, B, C, D 


point constant or a fixed point variable, 
with the value of i between 1 and 8 inclusive, 
and List is as described for READ DRUM. 


The WRITE DRUM statement causes the object program to write words of 
binary information into consecutive locations on drum i, where i = 1, 2, ...., 
8, beginning with drum location j, where j = 0, 1, ...., 2047. (If j >2048 
it is interpreted mod 2048.) Writing continues until the complete list has been 


written. 
The list is subject to the same restrictions as for READ DRUM. 
No checking is done and there are no HALTS in the object program. 


END FILE GENERAL FORM 
“END FILE i” where i is an unsigned fixed END FILE 3 
point constant between 1 and 10 inclusive END FILE | 
or a fixed point variable. 
The END FILE statement causes the object program to write End of File 
on tape unit i, where i = 1, 2, ...., 10. 
REWIND 
GENERAL FORM EXAMPLES 
“REWIND i” where i is an unsigned fixed REWIND 3 
point constant between 1 and 10 inclusive REWIND 1 
or a fixed point variable. 
The REWIND statement causes the object program to rewind tape unit i, where 
P= 1,2, 425/10. 
BACKSPACE 
GENERAL FORM EXAMPLES 
“BACKSPACE i” where i is an unsigned fixed BACKSPACE 3 
point constant between 1 and 10 inclusive BACKSPACE | 
or a fixed point variable. 
The BACKSPACE statement causes the object program to backspace tape 
unit i by one record, where і = 1, 2, ...., 10. 
Error Halts The several HALTS which can occur during input or output operation in the 


object program can be identified by the contents of the storage register on the 
704 console. The FORTRAN Operator’s Manual contains a list of these HALTS 


and their identifications. 
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CHAPTER 6. THE FORTRAN LANGUAGE: 


DIMENSION 


Specification Statements 


The last class of FoRTRAN statements is the set of 3 specification statements 
DIMENSION, EQUIVALENCE, and FREQUENCY. These are statements 
which are not executed, but which furnish information for use by FORTRAN to 
make the object program efficient. 


GENERAL FORM EXAMPLES 


“DIMENSION v, v, v, .. ." where each DIMENSION А(10), В(5, 15), C(3, 4, 5) 


v is a variable subscripted with 1, 2, or 3 
unsigned fixed point constants. 
Any number of v’s may be given. 


The DIMENSION statement provides the information necessary to allocate 
storage in the object program for arrays of quantities. 

Every variable which appears in the program in subscripted form must 
appear in a DIMENSION statement, and the DIMENSION statement must 
precede the first appearance of the variable. In the DIMENSION statement are 
given the desired dimensions of the array; in the executed program the sub- 
scripts of that variable must never take on values larger than those dimensions. 

Thus the example states that B is a 2-dimensional array and that the sub- 
scripts of B will never exceed 5 and 15; it causes 75 words of storage to be 
set aside for the B array. 

A single DIMENSION statement may be used to dimension any number 


of arrays. 
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EQUIVALENCE 


GENERAL FORM 


“EQUIVALENCE (a, b, c, ...), (d, e, Ё, ...), .. EQUIVALENCE (A, B(1), С(5) ), (D(17), E(3)) 


where a, b, c, d, е, f, ... are variables 
optionally followed by a single unsigned 
fixed point constant in parentheses. 


The EQUIVALENCE statement enables the programmer, if he wishes, to con- 
trol the allocation of data storage in the object program. In particular, it permits 
him to economise on data storage requirements by causing storage locations 
to be shared by two or more quantities, when the logic of his program permits. 
It also permits him, if he wishes, to call the same quantity by several different 
names, and then ensure that those names are treated as equivalent. 

An EQUIVALENCE statement may be placed anywhere in the source 
program. Each pair of parentheses encloses the names of two or more quanti- 
ties whose storage locations are to be made the same in the object program; 
any number of equivalences (pairs of parentheses) may be given. 

In an EQUIVALENCE statement the meaning of С(5), for example, 
is “the 4th storage location in the object program after the cell containing 
С, or (if С is an array) after C(1) or C(1,1) or C(1,1,1)”. In general A(p) 
is defined for p > 1 and means the p—1* location after A ог the beginning of the 
A array; i.e. the p location in the array. If p is not given, it is taken to be 1. 

Thus the example statement causes A, B, and C (or the beginnings of 
the A, B, and C arrays) to be so placed in storage that the location containing 
A, the location containing B, and the 4th location after that containing C, are 
the same location.:Similarly, it causes the 16th location after D and the 2nd 
after E both to be another location. 

A quantity or array which does not appear in any EQUIVALENCE state- 
ment will have storage exclusively to itself. 

Locations can be shared only among variables, not among constants. 

The sharing of storage locations cannot be planned safely without a 
knowledge of which FORTRAN statements, when executed in the object pro- 
gram, will cause a new value to be stored in a storage location. There are 7 


such statements. 


1. Execution of an arithmetic formula stores a new value of the variable on its 
left-hand side. 


2. Execution of an ASSIGN i TO n stores a new value in n. 
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3. Execution of a DO will in general store a new value of the index. (It will 
not always do so, however; see the section on Further Details about DO 
Statements in Chapter 7.) 


4. Execution of a READ, READ INPUT TAPE, READ TAPE, or READ 
DRUM stores new values of the variables listed. 


FREQUENCY 


GENERAL FORM EXAMPLES 


“FREQUENCY nli, j, ...), m(k, 1, ...), ..." FREQUENCY 30(1, 2, 1), 


where n, m, ... are Statement numbers and 40(11), 5001, 7, 1, 1) 
i, j, k, |, ... are unsigned fixed point constants. 


The FREQUENCY statement permits the programmer to give his estimate, for 
each branch-point of control, of the frequencies with which the several branches 
will actually be executed in the object program. This information is used to 
optimise the use of index registers in the object program. 

A FREQUENCY statement may be placed anywhere in the source pro- 
gram, and may be used to give the frequency information about any number 
of branch-points. For each branch-point the information consists of the state- 

ө ment number of the statement causing the branch, followed by parenthesis en- 
closing the estimated frequencies separated by commas. 

Consider the example. This might be a FREQUENCY statement in a 
program in which statement 30 is an IF, 40 is a DO, and 50 is a computed 
GO TO. The programmer estimates that the argument of the IF is as likely to 
be zero as non-zero, and when it is non-zero it is as likely to be negative as 
positive. The DO statement at 40 is presumably one for which at least one of 


the indexing parameters (m’s) is not a constant but a variable, so that the num- 
ber of times the loop must be executed to make a normal exit is not known in 
advance; the programmer here estimates that 11 is a good average for that 
number. The computed GO TO at 50 is estimated to transfer to its four branches 
with frequencies 1, 7, 1, 1. 

All frequency estimates, except those about DOs, are relative; thus they 
can be multiplied by any constant. The example statement, for instance, could 
equally well be given as FREQUENCY 30(2,4,2), 40(11), 50(3,21,3,3). A 
frequency may be estimated as 0; this will be taken to mean that the frequency 
is very small. 

The following table lists the 8 types of statement about which frequency 


information may be given. 
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REMARKS 


Computed GO TO 

IF 

IF (SENSE SWITCH) 

IF ACCUMULATOR OVERFLOW 


IF QUOTIENT OVERFLOW 
IF DIVIDE CHECK 
PAUSE number of times START 
will be pressed, number 
of times it will not. 
To be given only when m,, mz, or m, is variable. 


It is not necessary to give frequency information about any branch-point. If 
none is given, it will be taken that the probabilities of all branches are equal. 

A frequency estimate concerning a DO will be ignored except when at 
least one of the indexing parameters of that DO is variable. Moreover, the fre- 
quency estimate should be based only on the expected values of those para- 
meters; in other words, even if the range of the DO contains IFs or GO TOs 
which may transfer outside the range, the frequency estimate should be the 
number of times the range must be executed to cause a normal exit. 

A DO for which the indexing parameters are variable and for which no 
FREQUENCY statement is given will be treated as if a frequency of 5 had 
been estimated. 


38 


ө 


CHAPTER 7. MISCELLANEOUS DETAILS ABOUT FORTRAN 


Source and 
Object Machines 


Arrangement 
of the 
Object Program 


Fixed Point 
Arithmetic 


The source machine is the 704 on which the source program is translated into the 
object program. The object machine is that on which the object program is run. 

The source machine must be at least as large as a “small” 704; i.e. a 704 pos- 
sessing 4096 words of core storage, floating point instructions, CPA (copy and add 
logical) instruction, 1 drum unit, 4 tape units, attached card punch, attached or 
peripheral card reader, and attached or peripheral printer. 

The object machine may be of any size. Among the information produced by 
FORTRAN is a count of the storage locations required by the object program, from 
which it can be easily decided whether the object program is too large for any given 
object machine. 


The instructions and constants of the object program begin in lower memory and 
extend upwards. Data and other storage locations required for the operation of the 
program begin at location 77777, and extend downwards. Thus these latter locations 
are always at the top of memory, regardless of the size of the object machine. 

The topmost section of data storage is occupied by those variables which appear 
in DIMENSION or EQUIVALENCE statements. The arrangement of this region 
is such that two programs, whose DIMENSION and EQUIVALENCE statements 
are identical, will have this region allocated identically. This fact makes it possible 
to write families of programs which deal with the same data. 

The successively lower sections of storage are occupied by variables not 
mentioned in DIMENSION or EQUIVALENCE statements, then certain storage 
locations required for the operation of the program, and finally a section of 
erasable storage. 

For each object program ForTRAN produces a printed description of the exact 
arrangement of storage locations. 


The use of fixed point arithmetic is governed by the following considerations. 


1. Fixed point constants specified in the source program must have magnitudes 
less than 215, 


1S 
2. Fixed point data read in by the object program are-~teeated-mred-2>. must Ge smaller taun 2 


3. Fixed point arithmetic in the object program is arithmetic mod 215, 
4. Indexing in the object program is mod (size of the object machine). 
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Writing 
Subroutines 
for the 
Master Tape 


Optimisation of 
Arithmetic 
Expressions 


Library subroutines exist on the master FORTRAN tape in relocatable binary form. 
Placing a new subroutine on that tape involves (1) producing the routine in the 
form of relocatable binary cards, and (2) transcribing those cards on to the master 
tape by means of a program furnished for that purpose. Further details will be 
found in the FORTRAN Operator’s Manual. 

In the object program transfer to the subroutine is by the sequence 


TSX Subroutine, 4 
Return 


The subroutine itself and any constants that it requires should be located in relocat- 
able locations 0, 1, 2, ....It may also make use of a common storage region of 
any desired length n, beginning with relocatable location 77777,—(n—1) and ending 
with relocatable location 777775. 

At the moment of transfer to the subroutine Arg, will have been’ placed in the 
AC, Агро (if it exists) іп the MQ, Arg, (if it exists) in relocatable location 77775, 
of the common storage region, Arg, (if it exists) in relocatable location 77774g, etc. 
The common storage region may also be used for erasable storage by the subroutine. 

The output of the subroutine is to be left in the AC, and index registers 1 and 2 
must be returned with their original contents. 

Fixed point quantities in the object program exist in the following format: sign 
in sign bit, magnitude in decrement field, remainder of word all zeroes. 

It is suggested that error HALTS in subroutines be coded as HPR instructions, 
permitting the tag and address fields to contain identifying numbers which can be 
recognised at the console. 


Considerable attention is paid in FORTRAN to ensure that the object program arising 
from an arithmetic expression shall be efficient, regardless of how the expression has 
been written. For example, a sequence of multiplications and divisions not grouped by 
parentheses will automatically be reordered if necessary to minimise the number 
of storage accesses in the object program. 

However, one important type of optimisation, concerned with common sub- 
expressions, takes place only if the expression has been suitably written. As an 
example, consider the arithmetic formula. 


Y = A*B*C-+SINF(A*B) 


An efficient object program would form the product A*B only once; yet if the 
arithmetic formula is written as above, the multiplication of A by B will occur twice. 
The correct way to write this arithmetic formula is 


Y = (A*B)*C+SINF(A*B) 


The common subexpression A+B has been displayed by the extra pair of parentheses, 
and an object program will be formed which multiplies A by B only once. 
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Further Details 
about DO 
Statements 


In general, when common subexpressions exist in an expression, parentheses should 
be used to display them. 

There is one case where the programmer need not write the parentheses, 
because FoRTRAN will understand that they are there. The parentheses discussed in 
the section Hierarchy of Operations in Chapter 3 are of this type, and need not be 


given. Thus 
Y = A*B+C-+SINF(A*B) 


is as suitable for optimisation as 
Y = (A*B)+C0+SINF(A*B) 


However, the parentheses discussed in the section Ordering within a Hierarchy in 
Chapter 3 must be supplied if common subexpression optimisation is to occur. 


This section contains further details about DOs, which may be of interest to the 
advanced programmer. 


Triangular Indexing. Indexing such as 


ро 1= 110 

DO Ј= 1/10 
ог 

00 1-= 1/10 

DO J=1,I 


is permitted and simplifies work with triangular arrays. These are simply special 
cases of the fact that an index under control of a DO is available for general use as 
a fixed point variable. 

The diagonal elements of an array may be picked out by the following type of 


indexing: a Я 
р = 11 


A(l,1,1) = some expression 


Status of the Cell Containing I. A DO loop with index I does not affect the contents 
of the object program storage location for I except under certain circumstances, 
namely if 


1. An IF-type or GO TO-type transfer exit occurs from the range of the DO; 
2. I is used as a variable in the range of the DO; or 


3. Lis used as a subscript in combination with a relative constant whose value changes 
within the range of the DO. (A relative constant is a subscript the fixed point 
variable of which is not currently under control of a DO.) 


Therefore, if a normal exit occurs from a DO to which cases 2 and 3 do not apply, 
the I cell contains what it did before the DO was encountered. After normal exit 
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Limits on the 
Size of the 
Source Program 


TAPE is itself in the range of a DO for K). However, since J, which is the index 
controlled by the first parenthesis, is a subscript of both A and B, this element will 
work if it is the first element in the list. 


In performing the translation from source to object program, FORTRAN forms and 
uses tables which summarise various aspects of the information contained in the 
source program. These tables are limited in size, with corresponding limitations in 
the amount of information which the source program may contain. If a table size 
is exceeded the FoRTRAN program will HALT at one of a list of locations given in 
the FORTRAN Operator’s Manual. 

In what follows, the phrase “literal appearance” means that if the same thing 
appears more than once it must be counted more than once. 


1. (TEIFNO Table). The number of FORTRAN statements which have statement- 
numbers must not exceed 1500. (An input or output statement which has a 
statement number and whose list contains controlling parentheses counts double.) 


2. (FIXCON Table). The number of different fixed point constants must not exceed 
100. (In this count constants which differ only in sign are not considered different.) 


3. (FLOCON Table). The number of different floating point constants must not 
exceed 450. (In this count constants which differ only in sign are not considered 
different, nor are numbers such as 4., 4.0, 40.E-1, etc. which are really the 
same number.) ‘ 


4. (TDO Table). The number of DO statements must not exceed 150. 
5. The number of DO statements in any one nest must not exceed 50. 


6. (TIFGO Table). The total number of ASSIGNS plus IF-type and GO TO-type 
statements must not exceed 300. 


7. (TRAD Table). The total number of statement numbers mentioned in assigned 
GO TO and computed GO TO statements must not exceed 250. 


8. (FRET Table). The total number of numbers mentioned in FREQUENCY 
statements must not exceed 750. (Such a statement as FREQUENCY 30(1,2,1) 
has 4 numbers.) 


9. (DIM Tables}. The number of 1, 2, and 3-dimensional variables which appear in 
DIMENSION statements must not exceed 100, 100, and 90 respectively. 


10. (EQUIT Table). The number of literal appearances of variables in EQUIVAL- 
ENCE statements must not exceed 750. 


11. (LAMBDA Table). This table, and the BETA Table which follows, limit the 
size of arithmetic expressions on the right-hand side of arithmetic formulas and 
as the arguments of IF statements. In any one expression let 
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neh 


i 
3 
ў 
К 


Elements which Contain Variables with Three Subscripts. Consider a variable А 
whose three subscripts 51, S2, 5з involve as variables Уу, V2, Уз. Then the skeleton 


elements 

(CC „М = ),\у;= ), ‚„М= ) 
ог 

(С „М = ), М = ), ‚у; = ) 
ог 

(С ‚№ = h=, M= ) 


will work. The innermost parentheses (controlling v3, уз, у» respectively) may 
contain A(sj,S9,83) and any number of other variables with the same subscript 
combination; similarly the outermost parentheses may contain variables of any one 
subscript combination. The middle parentheses may not contain any subscripted 
variables. Thus for example 


(((A0,J,K), BG,J,K), К = 1,10), J = 1,5), б), DD, | = 1,10) 


will work provided that the first two dimensions of A and B are the same. This 
example makes use of the first of the skeleton elements just given. 

In the special case where the next element in the list is neither subscripted nor 
enclosed in controlling parentheses, the first of the above skeleton elements may 
also contain variables of any one subscript combination in its middle parentheses. 

Finally, the skeleton element 


((( y= 1,d)), Ұ = 1,0), Уз = ) 


which unlike the others indexes in the natural order, will work. Notice, however, 
that the indexing parameters for у; and уз must be such that the array is swept 
through consecutively. The innermost parameters may contain A(sj,S2,83) and апу 
number of other variables with the same subscript combination. 


Variable Indexing Parameters and Relative Constants. Another restriction affect- 
ing lists for binary tape operations concerns the use of relative constants and of 
indexing parameters which are variables. (A relative constant is a subscript, the 
variable of which is not currently under the control of a DO or a controlling 
parenthesis. ) 

The restriction is, that variables which have a subscript involving either a 
relative constant or an index governed by variable indexing parameters may appear 
only in the first element of a list. Furthermore, all such variables must also have 
among their subscripts one whose index is controlled by the first parenthesis. 

For example, in ((A(1,J), I = 1,L), B(K,J), J = 1,M) both the subscripts of 
A are governed by variable indexing parameters; for B the same is true of one of its 
subscripts, while the other is a relative constant (unless the READ TAPE or WRITE 


43 


Limits on the 
Size of the 
Source Program 


TAPE is itself in the range of a DO for K). However, since J, which is the index 
controlled by the first parenthesis, is a subscript of both A and B, this element will 
work if it is the first element in the list. 


In performing the translation from source to object program, FORTRAN forms and 
uses tables which summarise various aspects of the information contained in the 
source program. These tables are limited in size, with corresponding limitations in 
the amount of information which the source program may contain. If a table size 
is exceeded the FORTRAN program will HALT at one of a list of locations given in 
the FORTRAN Operator’s Manual. 

In what follows, the phrase “literal appearance” means that if the same thing 
appears more than once it must be counted more than once. 


1. (TEIFNO Table). The number of FORTRAN statements which have statement 
numbers must not exceed 1500. (An input or output statement which has a 
statement number and whose list contains controlling parentheses counts double. ) 


2. (FIXCON Table). The number of different fixed point constants must not exceed 
100. (In this count constants which differ only in sign are not considered different. ) 


3. (FLOCON Table). The number of different floating point constants must not 
exceed 450. (In this count constants which differ only in sign are not considered 
different, nor are numbers such as 4., 4.0, 40.E-1, etc. which are really the 
same number.) | 


4. (TDO Table). The number of DO statements must not exceed 150. 
5. The number of DO statements in any one nest must not exceed 50. 


6. (TIFGO Table). The total number of ASSIGNS plus IF-type and GO TO-type 
statements must not exceed 300. 


7. (TRAD Table). The total number of statement numbers mentioned in assigned 
GO TO and computed GO TO statements must not exceed 250. 


8. (FRET Table). The total number of numbers mentioned in FREQUENCY 
statements must not exceed 750. (Such a statement as FREQUENCY 30(1,2,1) 
has 4 numbers.) 


9. (DIM Tables}. The number of 1, 2, and 3-dimensional variables which appear in 
DIMENSION statements must not exceed 100, 100, and 90 respectively. 


10. (EQUIT Table). The number of literal appearances of variables in EQUIVAL- 
ENCE statements must not exceed 750. 


11. (LAMBDA Table). This table, and the BETA Table which follows, limit the 
size of arithmetic expressions on the right-hand side of arithmetic formulas and 
as the arguments of IF statements. In any one expression let 
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12. 


13. 


14. 


15. 


16. 


17. 


18. 


19. 


n=number of literal appearances of variables and constants, except those in 
subscripts; 


b=number of open parentheses, except those introducing subscripts; 


p=number of appearances of + or —, except in subscripts or as unitary opera- 
tors. (The + in Ax(+B) is a unitary operator.); 


t=number of appearances of > or /, except in subscripts; 
e=number of appearances of ++: 

f=number of literal appearances of function names; and 
a=number of arguments of functions. (For SINF(SINF(X) ), a=2.) 


Then А, which equals n+ 4b+4a—3f+3p+2t+e+3, must not exceed 400. 
(BETA Table). With the same definitions, В =)-+1—n—f must not exceed 300. 


(CLOSUB Table). In the entire program the number of literal appearances of 
functions must not exceed 1500. 


(FORVAL Table). The number of arithmetic formulas whose left-hand sides 
are non-subscripted fixed point variables must not exceed 500. 


(FORVAR Table). The total number of literal appearances of non-subscripted 
fixed point variables on the right-hand side of arithmetic formulas and in the 
arguments of IFs must not exceed 750. 


(FORTAG Table). The total number of literal appearances of subscripted vari- 
ables must not exceed 1500. 


(TAU Tables). The total number of different 1, 2, and 3-dimensional subscript 
combinations must not exceed 100, 90, and 75 respectively. (See the preceding 
section on Lists for Binary Tape Operations for the definition of subscript 
combination. ) 


(SIGMA Tables). Consider a variable with 3 subscripts, and let the additive 
parts of these subscripts (when written in full form) be c1’,ce’,cs’. Then the number 
of distinct triples c1’,c.’,cs’ must not exceed 100. Similarly for 2- and 1-dimensional 
variables, neither the number of distinct c:’,ce’ nor of distinct с’ may exceed 100. 


There are a few more limitations on table sizes, which are too complicated to set 
forth. In every case, however, a violation causes an identifiable HALT in the 
FORTRAN program. 
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CHAPTER 8. EXAMPLES OF FORTRAN PROGRAMMING 


A Complete 
but Simple 
Program 


The example below is the same as that given in Chapter 1, but expanded into a 
complete program. The purpose of the program is to discover the largest value 
attained by a set of numbers A(I) and to print that number on the attached 
printer. The numbers А (1) exist on punched cards, 12 to a card, each number 
occupying a field of 6 columns. There are not more than 999 numbers; the 
actual number N is punched on a lead card. 


C< $ 
Сомит Ё FORTRAN STATEMENT 
STATEMENT 
NUMBER 8 
1-6-7. en —_ == ==———— _ = eS 


|С | |__| PROGRAM FOR FINDING THE LARGEST VALUE 
Xx. ATTAINED BY A SET OF NUMBERS 
_ | DIMENSION A(999) 


|| FREQUENCY 30(2,1,10), 5100) — 


IDENTI- 
FICATION 


|_| |_| READ 1, М, (ACI), I= 1,N) 
| | _1 | | FORMAT (13/¢12F6.2)) 
D | BIGA = А(1) 
5 |_| ро 20 I= 2,N 
30 IF (ВІСА-А(1)) 10,20,20 
10 BIGA- ACI) 
20 CONTINUE 
а PRINT 2, №, BIGA 
2 FORMAT (22Н1ТНЕ LARGEST OF THESE 13, 12H NUMBERS IS F7.2) 


STOP 77777 


The first executable statement is the READ; therefore the program begins there. 
The READ causes first N and then A(1), A(2), ..... , A(N) to be brought 
in from the card reader, in accordance with the FORMAT statement 1. Notice 


that the indexing of the loop bringing in A will work correctly, since the 
indexing parameter N occurs earlier in the list. 

The FORMAT statement says that there is first a single card with format 
ІЗ, followed by any number of cards with format 12F6.2. On the single card 
N is punched as a decimal integer in columns 1-3 and is also to be converted 
into a fixed point number. In the remainder of the deck the numbers A(I) are 
punched 12 to a card in columns 1-6, 7-12, etc. Each number is presumably 
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punched as xxxxx or —xxxxx with the decimal point understood to precede the 
last two digits. If, however, a column is used for a decimal point, its position 
overrides this understanding. 

After the READ is executed control moves to the next executable state- 
ment, the arithmetic formula BIGA = A(1). The cell BIGA now contains A(1). 

Next the DO statement sets I to 2 and creates a loop starting with the IF 
and ending with the CONTINUE. The first time the IF is executed it transfers 
control either to statement 10 or statement 20, according as A(2) > BIGA or 
A(2)< BIGA. In the first case, therefore, BIGA becomes A(2); otherwise it 
remains A(1). 

Control is now in the CONTINUE, which is the last statement in the range 
of a DO which is still unsatisfied (provided that N > 2), and which is пої a 
transfer. Therefore DO-sequencing occurs: I is increased to 3 and control goes 
back to the IF. The comparison now is between BIGA and A(3); if A(3) is 
the larger it becomes the new BIGA. 

This process continues until control is in the CONTINUE with I = N. 
The DO is satisfied; therefore normal sequencing occurs and control moves to 
the PRINT. BIGA now contains the largest value in the set of A’s; N and the 
A-array have not been altered. 

The PRINT statement causes N and BIGA to be printed on the attached 
printer in accordance with the FORMAT statement 2. This statement causes 
a line to be printed as follows. The carriage control character is a Hollerith “1” 
which causes a skip to channel 1, bringing the paper to the top of a new sheet. 
Type wheels 1-21 receive the text “THE LARGEST OF THESE ’; wheels 22-24 
receive N converted back to decimal integer form; wheels 25-36 receive ‘ NUM- 
BERS IS ’; and wheels 37-43 receive BIGA converted into fixed decimal form, 
with a decimal point preceding the last two digits. Notice that an extra column 
is allotted to BIGA to allow for the decimal point, which was presumably 
omitted in the data input. 

The program ends with a HALT and 77777» in the address field of the 
storage register on the console. Pressing the START button will have no effect. 

The only subscripted variable used in the program is A. Hence DIMEN- 
SION A(999) is the only dimension information required. 

The only statements about which a FREQUENCY statement can be made 
are the IF and the DO. The programmer anticipates that BIGA will usually be 
greater than A(I), a plausible guess if the A(1) are randomly arranged but 
not if they tend to increase with increasing I. He also predicts for the DO that 
100 is a reasonable average for N. 
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A DO Nest Given an N x N square matrix A, to find those off-diagonal elements which are 


with Exit symmetric and to write them on binary tape. 
and Return 


FOR 
C< 
COMMENT 


FORTRAN STATEMENT FICATION 
STATEMENT 
NUMBER 
1 5 

T 


e CONTINUATION 


7 72\_73 
REWIND 3 
DO. 3. F = 1 5N 
DO3 J=1,N _ 
IF (ACI, J)-ACJ,1)) 3,20,3 
3 | | CONTINUE 
END FILE 3 
MORE PROGRAM 


20 IF(I-J) 21,3,21 


21 WRITE ТАРЕ 3,1,7, ACI,J) 
GO TO 3 


К ae a ee ees eee eee ae ne ОБЕ р ON 
After rewinding tape 3, a nested pair of DO loops scans the entire matrix 

for elements A(I,J) equal to A(J,I). Whenever such an element is found an 

exit completely out of the nest is made to a routine which for off-diagonal 

elements only writes a 3-word record (1, J, and A(I,J)) in binary on tape 3. 

Both for on- and off-diagonal elements this routine makes no change in the 

indexes or indexing parameters of the nest, and so it is permissible to re-enter 

the nest and continue the scan. 
This program actually finds each element twice. This could be avoided by 

writing the second DO as DO 3 J = IN. 
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APPENDIX A. TABLE OF FORTRAN CHARACTERS 


ш ш ш ш 
a a a a 
a Ё a Ы a F a Ы 
ар Tig dor Fae 
ala © a ajj Но ya ajs ? ağ 
12 11 0 
В 156 [к И м | У 2 162 
3 3 8 oje вз 23|1 и з ajr 9 зе 
Па aju Оле 
9 П е у 2 25 6 
S И е |м 0 % 6 
11 0 
Log ajx? 27 67 
8 8 ю 10) H 12 т за пй шу 0 з 70 
УЕ 
9 9 un nji É 7n 3af|R Ho so 5012 бозол 
_| 
Blank љ |+ 12 6 2|- пи 40 40/0 o 12 00 
12 11 0 
= 83 13 n|. 2 73 зз3]$ gy 53 53], g3 3 73 
12 11 0 
- 4 njo Дон озм). gh 5 54] (gy 34 74 


NoTE 1. There аге two — signs. Only the 11-punch minus may be used іп 
source program cards. Either minus may be used in input data to the object 
program; object program output has the 8-4 minus. 


М№оте 2. The $ character can be used in FORTRAN only as Hollerith text іп a 
FORMAT statement. 
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APPENDIX B. TABLE OF FORTRAN STATEMENTS 


STATEMENT NORMAL SEQUENCING 
a=b Next executable statement 
GO TO n Statement n 
GO ТО n, (mnz... nm) Statement last assigned 
ASSIGN i ТО n Next executable statement 
GO TO (nnz. ..,nm), i Statement п; 
IF (a) n,n2,n3 Statement n,,n2,n; as a less than, =, or greater than 0 
SENSE LIGHT i Next executable statement 
IF (SENSE LIGHT i) n,n, Statement n,,n. as Sense Light i ON or OFF 
IF (SENSE SWITCH i) m,n s “и as Sense Switch i DOWN or UP 
IF ACCUMULATOR OVERFLOW n,n "i “ “as Accumulator Overflow trigger ON or OFF 
IF QUOTIENT OVERFLOW nj,,n, s “ “as MQ Overflow trigger ON or OFF 
IF DIVIDE CHECK пуп, Е “ “ as Divide Check trigger ON or OFF 
PAUSE or PAUSE n Next executable statement 
STOP or STOP n Terminates program 
DO ni = m,,m, or DO пі = m,,m,,m, Next executable statement 
CONTINUE д: | Н 
FORMAT (Specification) Not executed 
READ n, List Next executable statement 
READ INPUT TAPE i, n, List ш “ 
PUNCH п, List д Ж : 
PRINT n, List “ Е в 


WRITE OUTPUT ТАРЕ i, п, List “ E “ 
READ TAPE i, List 4 “ 
READ DRUM i, j, List Е н 
WRITE ТАРЕ i, List Шш “ “ 
WRITE DRUM i, j, List Е Е si 
END FILE i i “ “ 
REWIND i A “ ({ 
ВАСК$РАСЕ i “ “ “ 
DIMENSION v, v, У, .... Not executed 
EQUIVALENCE (a,b,c,. .), (d,e,f,..), ... Е | 

FREQUENCY nii,j,. .), т(К,..),... x “ 
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Admissible characters 49 

Arithmetic formulas 12, 16, 36 
maximum length of 44 
mode of result 16 
not equivalent to ASSIGN 17 
optimisation of 40 

Arrays 9, 10 
arrangement іп storage 11 
order of reading or writing 
24, 25, 33, 43 
size of 11,35 

Assigned GO TO in range of DO 
17, 22 


Blank characters 7, 8, 28, 29 


Carriage control 29, 47 
Checking of reading 30, 31, 32 
of writing 31 
Comment cards 8 
Common storage region 40 
Common subexpressions 40 
Constants 9 
maximum number of 44 
Continuation cards 7 


Data input to object program 
29, 46, 49 

DO-sequencing 23 
examples of 7, 20, 22, 47, 48 

DO statements 20, 41 
and transfers 21, 23 
exitand return 21, 48 
index of 20, 22, 23, 25, 
37, 39, 41 
maximum number of 44 
nest of 21, 44, 48 
normal exit from 22, 41 
permitted calculation in 
range of 22 


preservation of index 22, 37, 41 


range of 20, 21 


INDEX 


satisfied 20, 23, 47 
transfer exit from 22, 41 
triangular indexing 41, 48 
within DOs 21 


Echo checking 31 
End of File 8, 30, 31, 32, 34 
skipping over 32 
Exponents 9, 15, 27, 29 
Expressions 14, 18 
maximum length of 44 
mixed 14, 16 
optimisation of 40 
rules for forming 14 


Format 26 
examples of 46, 47 
multi-record 28 
of input data to object program 
29, 46, 49 
of fixed point quantities in 


storage 40 
Functions 3, 12 
built-in 13 


maximum number of 45 
modes of 12 
rules for writing 40 


HALTS, identification of 

19, 20, 34, 40, 44, 45. 
Hierarchy of operations 15, 41 
Hollerith fields 28, 47, 49 


Indexing parameters 21, 22, 
25, 37, 38, 43, 46, 48 
Input to FORTRAN 8, 49 


Keypunching 7 


Library subroutines (see Functions) 
Lists of quantities for transmission 
24 


abbreviated form 25, 33 
for binary tape 26, 32, 33, 42 
for drum 26, 33, 34 


Non-executed statements 
23, 26, 35, 50 
Normal sequencing 23, 50 


Object program arrangement 

in storage 39 К 

Order of arrays 11 
of hierarchy of operations 15 
of operations within hierarchy 15 
of quantities in lists 24, 25, 
33, 43 
of statements 8 


Parentheses 14, 15, 25, 27, 28, 40 
Precision 3, 9, 10, 39 


Redundancy checking 31, 32 
Relative constants 41, 43 


Scale factors in input-output 27 
Sequencing, summary of 23, 50 
Size of machine required 2, 39 
“Small” 704 2,39 
Statement numbers 8, 9 
Statements 7,8 
maximum number of 44 
summary of 8, 50 
Storage allocation 11, 35, 36, 39 
Subscript combination 42, 43 
maximum number of 45 
Subscripts 9, 10, 14, 20, 42, 45 
maximum value of 11, 35, 42 
minimum value of 11 


Table sizes 44 


Variables 10 
maximum number of 44, 45 
restrictions on naming 10 
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